home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / knobvb25.zip / VB.ZIP / KEXAMPLE.FRM < prev    next >
Text File  |  1996-01-18  |  27KB  |  797 lines
  1. VERSION 2.00
  2. Begin Form Examples 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Knob Examples"
  6.    ClientHeight    =   6465
  7.    ClientLeft      =   1020
  8.    ClientTop       =   1875
  9.    ClientWidth     =   9090
  10.    Height          =   6870
  11.    Left            =   960
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   431
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   606
  18.    Top             =   1530
  19.    Width           =   9210
  20.    Begin Frame Frame2 
  21.       BackColor       =   &H00C0C0C0&
  22.       Caption         =   "Mixer"
  23.       Height          =   3420
  24.       Left            =   3000
  25.       TabIndex        =   8
  26.       Top             =   2940
  27.       Width           =   5955
  28.       Begin KNOB Knob3 
  29.          Angle           =   0
  30.          AutoRedraw      =   -1  'True
  31.          AVersion        =   2.5
  32.          BackgroundColor =   &H00C0C0C0&
  33.          BevelInner      =   0  ' 0 - None
  34.          BevelOuter      =   2  ' 2 - Inset
  35.          BevelWidth      =   1
  36.          BorderType      =   1  ' 1 - Bevel
  37.          BorderWidth     =   1
  38.          Digital         =   0   'False
  39.          DigitalColor    =   &H00000000&
  40.          DigitalDecimals =   0
  41.          DigitalFontID   =   0
  42.          DigitalX        =   0
  43.          DigitalY        =   0
  44.          FontID          =   0
  45.          FrameColor      =   &H00000000&
  46.          FrameScaleX     =   0
  47.          FrameScaleY     =   0
  48.          FrameStyle      =   0  ' 0 - None
  49.          Height          =   1515
  50.          Index           =   7
  51.          KnobColor       =   &H00808080&
  52.          KnobMultiTurn   =   0   'False
  53.          KnobMultiTurnValue=   0
  54.          KnobRadius      =   0.9
  55.          KnobSnap        =   0   'False
  56.          KnobSnapIncrement=   1
  57.          KnobStyle       =   2  ' 2 - Complex
  58.          KnobUserDefined =   ""
  59.          KnobValue       =   0
  60.          Left            =   4440
  61.          MarkUserDefined =   ""
  62.          MouseControl    =   -1  'True
  63.          OutlineAlign    =   0  ' 0 - Left 
  64.          OutlineColor    =   &H00000000&
  65.          OutlineTitle    =   ""
  66.          OutlineWidth    =   0
  67.          Radius          =   0
  68.          TabIndex        =   16
  69.          Top             =   1800
  70.          Value           =   0
  71.          Width           =   1425
  72.          XScale          =   0
  73.          YScale          =   0
  74.          ZLoad           =   KEXAMPLE.FRX:0000
  75.       End
  76.       Begin KNOB Knob3 
  77.          Angle           =   0
  78.          AutoRedraw      =   -1  'True
  79.          AVersion        =   2.5
  80.          BackgroundColor =   &H00C0C0C0&
  81.          BevelInner      =   0  ' 0 - None
  82.          BevelOuter      =   2  ' 2 - Inset
  83.          BevelWidth      =   1
  84.          BorderType      =   1  ' 1 - Bevel
  85.          BorderWidth     =   1
  86.          Digital         =   0   'False
  87.          DigitalColor    =   &H00000000&
  88.          DigitalDecimals =   0
  89.          DigitalFontID   =   0
  90.          DigitalX        =   0
  91.          DigitalY        =   0
  92.          FontID          =   0
  93.          FrameColor      =   &H00000000&
  94.          FrameScaleX     =   0
  95.          FrameScaleY     =   0
  96.          FrameStyle      =   0  ' 0 - None
  97.          Height          =   1515
  98.          Index           =   6
  99.          KnobColor       =   &H00808080&
  100.          KnobMultiTurn   =   0   'False
  101.          KnobMultiTurnValue=   0
  102.          KnobRadius      =   0.9
  103.          KnobSnap        =   0   'False
  104.          KnobSnapIncrement=   1
  105.          KnobStyle       =   2  ' 2 - Complex
  106.          KnobUserDefined =   ""
  107.          KnobValue       =   0
  108.          Left            =   3000
  109.          MarkUserDefined =   ""
  110.          MouseControl    =   -1  'True
  111.          OutlineAlign    =   0  ' 0 - Left 
  112.          OutlineColor    =   &H00000000&
  113.          OutlineTitle    =   ""
  114.          OutlineWidth    =   0
  115.          Radius          =   0
  116.          TabIndex        =   15
  117.          Top             =   1800
  118.          Value           =   0
  119.          Width           =   1425
  120.          XScale          =   0
  121.          YScale          =   0
  122.          ZLoad           =   KEXAMPLE.FRX:00DE
  123.       End
  124.       Begin KNOB Knob3 
  125.          Angle           =   0
  126.          AutoRedraw      =   -1  'True
  127.          AVersion        =   2.5
  128.          BackgroundColor =   &H00C0C0C0&
  129.          BevelInner      =   0  ' 0 - None
  130.          BevelOuter      =   2  ' 2 - Inset
  131.          BevelWidth      =   1
  132.          BorderType      =   1  ' 1 - Bevel
  133.          BorderWidth     =   1
  134.          Digital         =   0   'False
  135.          DigitalColor    =   &H00000000&
  136.          DigitalDecimals =   0
  137.          DigitalFontID   =   0
  138.          DigitalX        =   0
  139.          DigitalY        =   0
  140.          FontID          =   0
  141.          FrameColor      =   &H00000000&
  142.          FrameScaleX     =   0
  143.          FrameScaleY     =   0
  144.          FrameStyle      =   0  ' 0 - None
  145.          Height          =   1515
  146.          Index           =   5
  147.          KnobColor       =   &H00808080&
  148.          KnobMultiTurn   =   0   'False
  149.          KnobMultiTurnValue=   0
  150.          KnobRadius      =   0.9
  151.          KnobSnap        =   0   'False
  152.          KnobSnapIncrement=   1
  153.          KnobStyle       =   2  ' 2 - Complex
  154.          KnobUserDefined =   ""
  155.          KnobValue       =   0
  156.          Left            =   1560
  157.          MarkUserDefined =   ""
  158.          MouseControl    =   -1  'True
  159.          OutlineAlign    =   0  ' 0 - Left 
  160.          OutlineColor    =   &H00000000&
  161.          OutlineTitle    =   ""
  162.          OutlineWidth    =   0
  163.          Radius          =   0
  164.          TabIndex        =   14
  165.          Top             =   1800
  166.          Value           =   0
  167.          Width           =   1425
  168.          XScale          =   0
  169.          YScale          =   0
  170.          ZLoad           =   KEXAMPLE.FRX:01BC
  171.       End
  172.       Begin KNOB Knob3 
  173.          Angle           =   0
  174.          AutoRedraw      =   -1  'True
  175.          AVersion        =   2.5
  176.          BackgroundColor =   &H00C0C0C0&
  177.          BevelInner      =   0  ' 0 - None
  178.          BevelOuter      =   2  ' 2 - Inset
  179.          BevelWidth      =   1
  180.          BorderType      =   1  ' 1 - Bevel
  181.          BorderWidth     =   1
  182.          Digital         =   0   'False
  183.          DigitalColor    =   &H00000000&
  184.          DigitalDecimals =   0
  185.          DigitalFontID   =   0
  186.          DigitalX        =   0
  187.          DigitalY        =   0
  188.          FontID          =   0
  189.          FrameColor      =   &H00000000&
  190.          FrameScaleX     =   0
  191.          FrameScaleY     =   0
  192.          FrameStyle      =   0  ' 0 - None
  193.          Height          =   1515
  194.          Index           =   4
  195.          KnobColor       =   &H00808080&
  196.          KnobMultiTurn   =   0   'False
  197.          KnobMultiTurnValue=   0
  198.          KnobRadius      =   0.9
  199.          KnobSnap        =   0   'False
  200.          KnobSnapIncrement=   1
  201.          KnobStyle       =   2  ' 2 - Complex
  202.          KnobUserDefined =   ""
  203.          KnobValue       =   0
  204.          Left            =   120
  205.          MarkUserDefined =   ""
  206.          MouseControl    =   -1  'True
  207.          OutlineAlign    =   0  ' 0 - Left 
  208.          OutlineColor    =   &H00000000&
  209.          OutlineTitle    =   ""
  210.          OutlineWidth    =   0
  211.          Radius          =   0
  212.          TabIndex        =   13
  213.          Top             =   1800
  214.          Value           =   0
  215.          Width           =   1425
  216.          XScale          =   0
  217.          YScale          =   0
  218.          ZLoad           =   KEXAMPLE.FRX:029A
  219.       End
  220.       Begin KNOB Knob3 
  221.          Angle           =   0
  222.          AutoRedraw      =   -1  'True
  223.          AVersion        =   2.5
  224.          BackgroundColor =   &H00C0C0C0&
  225.          BevelInner      =   0  ' 0 - None
  226.          BevelOuter      =   2  ' 2 - Inset
  227.          BevelWidth      =   1
  228.          BorderType      =   1  ' 1 - Bevel
  229.          BorderWidth     =   1
  230.          Digital         =   0   'False
  231.          DigitalColor    =   &H00000000&
  232.          DigitalDecimals =   0
  233.          DigitalFontID   =   0
  234.          DigitalX        =   0
  235.          DigitalY        =   0
  236.          FontID          =   0
  237.          FrameColor      =   &H00000000&
  238.          FrameScaleX     =   0
  239.          FrameScaleY     =   0
  240.          FrameStyle      =   0  ' 0 - None
  241.          Height          =   1515
  242.          Index           =   0
  243.          KnobColor       =   &H00808080&
  244.          KnobMultiTurn   =   0   'False
  245.          KnobMultiTurnValue=   0
  246.          KnobRadius      =   0.9
  247.          KnobSnap        =   0   'False
  248.          KnobSnapIncrement=   1
  249.          KnobStyle       =   2  ' 2 - Complex
  250.          KnobUserDefined =   ""
  251.          KnobValue       =   0
  252.          Left            =   120
  253.          MarkUserDefined =   ""
  254.          MouseControl    =   -1  'True
  255.          OutlineAlign    =   0  ' 0 - Left 
  256.          OutlineColor    =   &H00000000&
  257.          OutlineTitle    =   ""
  258.          OutlineWidth    =   0
  259.          Radius          =   0
  260.          TabIndex        =   12
  261.          Top             =   240
  262.          Value           =   0
  263.          Width           =   1425
  264.          XScale          =   0
  265.          YScale          =   0
  266.          ZLoad           =   KEXAMPLE.FRX:0378
  267.       End
  268.       Begin KNOB Knob3 
  269.          Angle           =   0
  270.          AutoRedraw      =   -1  'True
  271.          AVersion        =   2.5
  272.          BackgroundColor =   &H00C0C0C0&
  273.          BevelInner      =   0  ' 0 - None
  274.          BevelOuter      =   2  ' 2 - Inset
  275.          BevelWidth      =   1
  276.          BorderType      =   1  ' 1 - Bevel
  277.          BorderWidth     =   1
  278.          Digital         =   0   'False
  279.          DigitalColor    =   &H00000000&
  280.          DigitalDecimals =   0
  281.          DigitalFontID   =   0
  282.          DigitalX        =   0
  283.          DigitalY        =   0
  284.          FontID          =   0
  285.          FrameColor      =   &H00000000&
  286.          FrameScaleX     =   0
  287.          FrameScaleY     =   0
  288.          FrameStyle      =   0  ' 0 - None
  289.          Height          =   1515
  290.          Index           =   3
  291.          KnobColor       =   &H00808080&
  292.          KnobMultiTurn   =   0   'False
  293.          KnobMultiTurnValue=   0
  294.          KnobRadius      =   0.9
  295.          KnobSnap        =   0   'False
  296.          KnobSnapIncrement=   1
  297.          KnobStyle       =   2  ' 2 - Complex
  298.          KnobUserDefined =   ""
  299.          KnobValue       =   0
  300.          Left            =   4440
  301.          MarkUserDefined =   ""
  302.          MouseControl    =   -1  'True
  303.          OutlineAlign    =   0  ' 0 - Left 
  304.          OutlineColor    =   &H00000000&
  305.          OutlineTitle    =   ""
  306.          OutlineWidth    =   0
  307.          Radius          =   0
  308.          TabIndex        =   11
  309.          Top             =   240
  310.          Value           =   0
  311.          Width           =   1425
  312.          XScale          =   0
  313.          YScale          =   0
  314.          ZLoad           =   KEXAMPLE.FRX:0456
  315.       End
  316.       Begin KNOB Knob3 
  317.          Angle           =   0
  318.          AutoRedraw      =   -1  'True
  319.          AVersion        =   2.5
  320.          BackgroundColor =   &H00C0C0C0&
  321.          BevelInner      =   0  ' 0 - None
  322.          BevelOuter      =   2  ' 2 - Inset
  323.          BevelWidth      =   1
  324.          BorderType      =   1  ' 1 - Bevel
  325.          BorderWidth     =   1
  326.          Digital         =   0   'False
  327.          DigitalColor    =   &H00000000&
  328.          DigitalDecimals =   0
  329.          DigitalFontID   =   0
  330.          DigitalX        =   0
  331.          DigitalY        =   0
  332.          FontID          =   0
  333.          FrameColor      =   &H00000000&
  334.          FrameScaleX     =   0
  335.          FrameScaleY     =   0
  336.          FrameStyle      =   0  ' 0 - None
  337.          Height          =   1515
  338.          Index           =   2
  339.          KnobColor       =   &H00808080&
  340.          KnobMultiTurn   =   0   'False
  341.          KnobMultiTurnValue=   0
  342.          KnobRadius      =   0.9
  343.          KnobSnap        =   0   'False
  344.          KnobSnapIncrement=   1
  345.          KnobStyle       =   2  ' 2 - Complex
  346.          KnobUserDefined =   ""
  347.          KnobValue       =   0
  348.          Left            =   3000
  349.          MarkUserDefined =   ""
  350.          MouseControl    =   -1  'True
  351.          OutlineAlign    =   0  ' 0 - Left 
  352.          OutlineColor    =   &H00000000&
  353.          OutlineTitle    =   ""
  354.          OutlineWidth    =   0
  355.          Radius          =   0
  356.          TabIndex        =   10
  357.          Top             =   240
  358.          Value           =   0
  359.          Width           =   1425
  360.          XScale          =   0
  361.          YScale          =   0
  362.          ZLoad           =   KEXAMPLE.FRX:0534
  363.       End
  364.       Begin KNOB Knob3 
  365.          Angle           =   0
  366.          AutoRedraw      =   -1  'True
  367.          AVersion        =   2.5
  368.          BackgroundColor =   &H00C0C0C0&
  369.          BevelInner      =   0  ' 0 - None
  370.          BevelOuter      =   2  ' 2 - Inset
  371.          BevelWidth      =   1
  372.          BorderType      =   1  ' 1 - Bevel
  373.          BorderWidth     =   1
  374.          Digital         =   0   'False
  375.          DigitalColor    =   &H00000000&
  376.          DigitalDecimals =   0
  377.          DigitalFontID   =   0
  378.          DigitalX        =   0
  379.          DigitalY        =   0
  380.          FontID          =   0
  381.          FrameColor      =   &H00000000&
  382.          FrameScaleX     =   0
  383.          FrameScaleY     =   0
  384.          FrameStyle      =   0  ' 0 - None
  385.          Height          =   1515
  386.          Index           =   1
  387.          KnobColor       =   &H00808080&
  388.          KnobMultiTurn   =   0   'False
  389.          KnobMultiTurnValue=   0
  390.          KnobRadius      =   0.9
  391.          KnobSnap        =   0   'False
  392.          KnobSnapIncrement=   1
  393.          KnobStyle       =   2  ' 2 - Complex
  394.          KnobUserDefined =   ""
  395.          KnobValue       =   0
  396.          Left            =   1560
  397.          MarkUserDefined =   ""
  398.          MouseControl    =   -1  'True
  399.          OutlineAlign    =   0  ' 0 - Left 
  400.          OutlineColor    =   &H00000000&
  401.          OutlineTitle    =   ""
  402.          OutlineWidth    =   0
  403.          Radius          =   0
  404.          TabIndex        =   9
  405.          Top             =   240
  406.          Value           =   0
  407.          Width           =   1425
  408.          XScale          =   0
  409.          YScale          =   0
  410.          ZLoad           =   KEXAMPLE.FRX:0612
  411.       End
  412.    End
  413.    Begin Timer Timer1 
  414.       Interval        =   100
  415.       Left            =   5865
  416.       Top             =   6690
  417.    End
  418.    Begin Frame Frame1 
  419.       BackColor       =   &H00C0C0C0&
  420.       Caption         =   "Color Control"
  421.       Height          =   2775
  422.       Left            =   5700
  423.       TabIndex        =   5
  424.       Top             =   60
  425.       Width           =   3225
  426.       Begin KNOB Knob4 
  427.          Angle           =   0
  428.          AutoRedraw      =   -1  'True
  429.          AVersion        =   2.5
  430.          BackgroundColor =   &H00C0C0C0&
  431.          BevelInner      =   1  ' 1 - Raised
  432.          BevelOuter      =   0  ' 0 - None
  433.          BevelWidth      =   1
  434.          BorderType      =   0  ' 0 - None
  435.          BorderWidth     =   0
  436.          Digital         =   -1  'True
  437.          DigitalColor    =   &H0000FF00&
  438.          DigitalDecimals =   0
  439.          DigitalFontID   =   0
  440.          DigitalX        =   0
  441.          DigitalY        =   0
  442.          FontID          =   0
  443.          FrameColor      =   &H00000000&
  444.          FrameScaleX     =   0
  445.          FrameScaleY     =   0
  446.          FrameStyle      =   0  ' 0 - None
  447.          Height          =   1050
  448.          Index           =   0
  449.          KnobColor       =   &H000000FF&
  450.          KnobMultiTurn   =   0   'False
  451.          KnobMultiTurnValue=   0
  452.          KnobRadius      =   1.1
  453.          KnobSnap        =   0   'False
  454.          KnobSnapIncrement=   0
  455.          KnobStyle       =   0  ' 0 - Cicular
  456.          KnobUserDefined =   ""
  457.          KnobValue       =   128
  458.          Left            =   60
  459.          MarkUserDefined =   ""
  460.          MouseControl    =   -1  'True
  461.          OutlineAlign    =   0  ' 0 - Left 
  462.          OutlineColor    =   &H00000000&
  463.          OutlineTitle    =   ""
  464.          OutlineWidth    =   0
  465.          Radius          =   0
  466.          TabIndex        =   4
  467.          Top             =   1380
  468.          Value           =   0
  469.          Width           =   1050
  470.          XScale          =   0
  471.          YScale          =   0
  472.          ZLoad           =   KEXAMPLE.FRX:06F0
  473.       End
  474.       Begin KNOB Knob4 
  475.          Angle           =   0
  476.          AutoRedraw      =   -1  'True
  477.          AVersion        =   2.5
  478.          BackgroundColor =   &H00C0C0C0&
  479.          BevelInner      =   1  ' 1 - Raised
  480.          BevelOuter      =   0  ' 0 - None
  481.          BevelWidth      =   1
  482.          BorderType      =   0  ' 0 - None
  483.          BorderWidth     =   0
  484.          Digital         =   -1  'True
  485.          DigitalColor    =   &H00FF0000&
  486.          DigitalDecimals =   0
  487.          DigitalFontID   =   0
  488.          DigitalX        =   0
  489.          DigitalY        =   0
  490.          FontID          =   0
  491.          FrameColor      =   &H00000000&
  492.          FrameScaleX     =   0
  493.          FrameScaleY     =   0
  494.          FrameStyle      =   0  ' 0 - None
  495.          Height          =   1050
  496.          Index           =   1
  497.          KnobColor       =   &H0000FF00&
  498.          KnobMultiTurn   =   0   'False
  499.          KnobMultiTurnValue=   0
  500.          KnobRadius      =   1.1
  501.          KnobSnap        =   0   'False
  502.          KnobSnapIncrement=   0
  503.          KnobStyle       =   0  ' 0 - Cicular
  504.          KnobUserDefined =   ""
  505.          KnobValue       =   128
  506.          Left            =   1065
  507.          MarkUserDefined =   ""
  508.          MouseControl    =   -1  'True
  509.          OutlineAlign    =   0  ' 0 - Left 
  510.          OutlineColor    =   &H00000000&
  511.          OutlineTitle    =   ""
  512.          OutlineWidth    =   0
  513.          Radius          =   0
  514.          TabIndex        =   7
  515.          Top             =   1380
  516.          Value           =   0
  517.          Width           =   1050
  518.          XScale          =   0
  519.          YScale          =   0
  520.          ZLoad           =   KEXAMPLE.FRX:0766
  521.       End
  522.       Begin KNOB Knob4 
  523.          Angle           =   0
  524.          AutoRedraw      =   -1  'True
  525.          AVersion        =   2.5
  526.          BackgroundColor =   &H00C0C0C0&
  527.          BevelInner      =   1  ' 1 - Raised
  528.          BevelOuter      =   0  ' 0 - None
  529.          BevelWidth      =   1
  530.          BorderType      =   0  ' 0 - None
  531.          BorderWidth     =   0
  532.          Digital         =   -1  'True
  533.          DigitalColor    =   &H000000FF&
  534.          DigitalDecimals =   0
  535.          DigitalFontID   =   0
  536.          DigitalX        =   0
  537.          DigitalY        =   0
  538.          FontID          =   0
  539.          FrameColor      =   &H00000000&
  540.          FrameScaleX     =   0
  541.          FrameScaleY     =   0
  542.          FrameStyle      =   0  ' 0 - None
  543.          Height          =   1050
  544.          Index           =   2
  545.          KnobColor       =   &H00FF0000&
  546.          KnobMultiTurn   =   0   'False
  547.          KnobMultiTurnValue=   0
  548.          KnobRadius      =   1.1
  549.          KnobSnap        =   0   'False
  550.          KnobSnapIncrement=   0
  551.          KnobStyle       =   0  ' 0 - Cicular
  552.          KnobUserDefined =   ""
  553.          KnobValue       =   128
  554.          Left            =   2100
  555.          MarkUserDefined =   ""
  556.          MouseControl    =   -1  'True
  557.          OutlineAlign    =   0  ' 0 - Left 
  558.          OutlineColor    =   &H00000000&
  559.          OutlineTitle    =   ""
  560.          OutlineWidth    =   0
  561.          Radius          =   0
  562.          TabIndex        =   6
  563.          Top             =   1380
  564.          Value           =   0
  565.          Width           =   1050
  566.          XScale          =   0
  567.          YScale          =   0
  568.          ZLoad           =   KEXAMPLE.FRX:07DC
  569.       End
  570.       Begin Label Label3 
  571.          BackColor       =   &H00FFFFFF&
  572.          BorderStyle     =   1  'Fixed Single
  573.          Height          =   1065
  574.          Left            =   120
  575.          TabIndex        =   2
  576.          Top             =   240
  577.          Width           =   3030
  578.       End
  579.    End
  580.    Begin KNOB Knob6 
  581.       Angle           =   0
  582.       AutoRedraw      =   -1  'True
  583.       AVersion        =   2.5
  584.       BackgroundColor =   &H00C0C0C0&
  585.       BevelInner      =   1  ' 1 - Raised
  586.       BevelOuter      =   2  ' 2 - Inset
  587.       BevelWidth      =   2
  588.       BorderType      =   0  ' 0 - None
  589.       BorderWidth     =   2
  590.       Digital         =   -1  'True
  591.       DigitalColor    =   &H00C00000&
  592.       DigitalDecimals =   0
  593.       DigitalFontID   =   0
  594.       DigitalX        =   -0.31
  595.       DigitalY        =   -1.19
  596.       FontID          =   0
  597.       FrameColor      =   &H00000000&
  598.       FrameScaleX     =   1
  599.       FrameScaleY     =   0
  600.       FrameStyle      =   0  ' 0 - None
  601.       Height          =   2550
  602.       KnobColor       =   &H00800000&
  603.       KnobMultiTurn   =   0   'False
  604.       KnobMultiTurnValue=   10
  605.       KnobRadius      =   0.7
  606.       KnobSnap        =   0   'False
  607.       KnobSnapIncrement=   0
  608.       KnobStyle       =   0  ' 0 - Cicular
  609.       KnobUserDefined =   ""
  610.       KnobValue       =   18
  611.       Left            =   120
  612.       MarkUserDefined =   ""
  613.       MouseControl    =   -1  'True
  614.       OutlineAlign    =   2  ' 2 - Center
  615.       OutlineColor    =   &H00FF0000&
  616.       OutlineTitle    =   "Multi-Turn Example"
  617.       OutlineWidth    =   2
  618.       Radius          =   0
  619.       TabIndex        =   3
  620.       Top             =   120
  621.       Value           =   0
  622.       Width           =   2580
  623.       XScale          =   0
  624.       YScale          =   0
  625.       ZLoad           =   KEXAMPLE.FRX:0852
  626.    End
  627.    Begin KNOB Knob2 
  628.       Angle           =   0
  629.       AutoRedraw      =   -1  'True
  630.       AVersion        =   2.5
  631.       BackgroundColor =   &H00C0C0C0&
  632.       BevelInner      =   1  ' 1 - Raised
  633.       BevelOuter      =   2  ' 2 - Inset
  634.       BevelWidth      =   2
  635.       BorderType      =   2  ' 2 - Outline
  636.       BorderWidth     =   2
  637.       Digital         =   0   'False
  638.       DigitalColor    =   &H00000000&
  639.       DigitalDecimals =   0
  640.       DigitalFontID   =   0
  641.       DigitalX        =   0
  642.       DigitalY        =   0
  643.       FontID          =   0
  644.       FrameColor      =   &H00000000&
  645.       FrameScaleX     =   0
  646.       FrameScaleY     =   0
  647.       FrameStyle      =   0  ' 0 - None
  648.       Height          =   3540
  649.       KnobColor       =   &H00808080&
  650.       KnobMultiTurn   =   0   'False
  651.       KnobMultiTurnValue=   0
  652.       KnobRadius      =   0.7
  653.       KnobSnap        =   0   'False
  654.       KnobSnapIncrement=   1
  655.       KnobStyle       =   0  ' 0 - Cicular
  656.       KnobUserDefined =   ""
  657.       KnobValue       =   0.2
  658.       Left            =   60
  659.       MarkUserDefined =   "-100,-500, 100,-500, 100,-2200, -100,-2200"
  660.       MouseControl    =   -1  'True
  661.       OutlineAlign    =   2  ' 2 - Center
  662.       OutlineColor    =   &H00000080&
  663.       OutlineTitle    =   "Balance"
  664.       OutlineWidth    =   0
  665.       Radius          =   0
  666.       TabIndex        =   1
  667.       Top             =   2940
  668.       Value           =   0
  669.       Width           =   2865
  670.       XScale          =   0
  671.       YScale          =   0
  672.       ZLoad           =   KEXAMPLE.FRX:0998
  673.    End
  674.    Begin KNOB Knob1 
  675.       Angle           =   0
  676.       AutoRedraw      =   -1  'True
  677.       AVersion        =   2.5
  678.       BackgroundColor =   &H00808080&
  679.       BackgroundPicture=   KEXAMPLE.FRX:0B1E
  680.       BevelInner      =   1  ' 1 - Raised
  681.       BevelOuter      =   2  ' 2 - Inset
  682.       BevelWidth      =   2
  683.       BorderType      =   0  ' 0 - None
  684.       BorderWidth     =   2
  685.       Digital         =   -1  'True
  686.       DigitalColor    =   &H00C0C0C0&
  687.       DigitalDecimals =   0
  688.       DigitalFontID   =   0
  689.       DigitalX        =   0
  690.       DigitalY        =   0.05
  691.       FontID          =   0
  692.       FrameColor      =   &H00404040&
  693.       FrameScaleX     =   0
  694.       FrameScaleY     =   0
  695.       FrameStyle      =   0  ' 0 - None
  696.       Height          =   2760
  697.       KnobColor       =   &H00404040&
  698.       KnobMultiTurn   =   -1  'True
  699.       KnobMultiTurnValue=   100
  700.       KnobRadius      =   0.6
  701.       KnobSnap        =   0   'False
  702.       KnobSnapIncrement=   0
  703.       KnobStyle       =   3  ' 3 - Faucet
  704.       KnobUserDefined =   ""
  705.       KnobValue       =   1200
  706.       Left            =   2760
  707.       MarkUserDefined =   ""
  708.       MouseControl    =   -1  'True
  709.       OutlineAlign    =   0  ' 0 - Left 
  710.       OutlineColor    =   &H00000000&
  711.       OutlineTitle    =   ""
  712.       OutlineWidth    =   0
  713.       Radius          =   0
  714.       TabIndex        =   0
  715.       Top             =   60
  716.       Value           =   0
  717.       Width           =   2775
  718.       XScale          =   0
  719.       YScale          =   0
  720.       ZLoad           =   KEXAMPLE.FRX:50F8
  721.    End
  722. End
  723.  
  724. Sub Form_Load ()
  725.  
  726.     label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
  727.  
  728. End Sub
  729.  
  730. Sub HScroll1_Change ()
  731.  
  732.     knob6.KnobValue = hscroll1
  733.     label1 = hscroll1
  734.  
  735. End Sub
  736.  
  737. Sub HScroll1_Scroll ()
  738.  
  739.     knob6.KnobValue = hscroll1
  740.     label1 = hscroll1
  741.  
  742. End Sub
  743.  
  744. Sub Knob4_Change (Index As Integer)
  745.  
  746.     label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
  747.  
  748. End Sub
  749.  
  750. Sub Knob4_Turn (Index As Integer)
  751.  
  752.     label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
  753.  
  754. End Sub
  755.  
  756. Sub Knob6_Change ()
  757.  
  758.     hscroll1 = knob6.KnobValue
  759.     label1 = hscroll1
  760.  
  761. End Sub
  762.  
  763. Sub Knob6_Click ()
  764.  
  765.     hscroll1 = knob6.KnobValue
  766.     label1 = hscroll1
  767.  
  768. End Sub
  769.  
  770. Sub Knob6_Turn ()
  771.  
  772.     hscroll1 = knob6.KnobValue
  773.     label1 = hscroll1
  774.     
  775. End Sub
  776.  
  777. Sub Timer1_Timer ()
  778.  
  779. Dim a As Double
  780.  
  781.     Randomize
  782.  
  783.     a = knob4(0).KnobValue + 2 * Rnd - 1
  784.     If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(0) = a
  785.     a = knob4(1).KnobValue - 2 * Rnd + 1
  786.     If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(1) = a
  787.     a = knob4(2).KnobValue - 2 * Rnd + 1
  788.     If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(2) = a
  789.     
  790.     label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
  791.     
  792.     a = knob1.KnobValue + 2 * Rnd - 1
  793.     If a < knob1.ScaleMaxValue And a > knob1.ScaleMinValue Then knob1 = a
  794.  
  795. End Sub
  796.  
  797.